home *** CD-ROM | disk | FTP | other *** search
/ PC Home 109 / PC Home 109.iso / data1.cab / Program_Files / MMenu.dxr / 00163.ls < prev    next >
Encoding:
Text File  |  2001-03-02  |  278 b   |  12 lines
  1. on GetRandomList iListSize
  2.   set list to []
  3.   repeat with n = 1 to iListSize
  4.     set iNewNumber to random(iListSize)
  5.     repeat while getPos(list, iNewNumber) <> 0
  6.       set iNewNumber to random(iListSize)
  7.     end repeat
  8.     add(list, iNewNumber)
  9.   end repeat
  10.   return list
  11. end
  12.